home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / PROGMISC / FORTRAN2.LZH / NSTAT.FOR < prev    next >
Encoding:
Text File  |  1988-02-08  |  2.5 KB  |  102 lines
  1.       SUBROUTINE NSTAT ( IX, IY, NUM, DOWN )
  2. C*
  3. C*                  *******************************
  4. C*                  *******************************
  5. C*                  **                           **
  6. C*                  **          NSTAT            **
  7. C*                  **                           **
  8. C*                  *******************************
  9. C*                  *******************************
  10. C*
  11. C*     SUBPROGRAM :
  12. C*          NAE STATUS
  13. C*
  14. C*     AUTHOR :
  15. C*          ART RAGOSTA
  16. C*          MS 207-5
  17. C*          AMES RESEARCH CENTER
  18. C*          MOFFETT FIELD, CALIF   94035
  19. C*          (415) 694-5578
  20. C*
  21. C*     PURPOSE :
  22. C*          TO DISPLAY THE STATUS OF THE NAE EDITOR.
  23. C*
  24. C*     METHODOLOGY :
  25. C*          USE VT-100 CONTROL SEQUENCES.
  26. C*
  27. C*     INPUT ARGUMENTS :
  28. C*          IX    - X LOCATION OF CURSOR
  29. C*          IY    - Y LOCATION OF CURSOR
  30. C*          NUM   - NUMBER OF ENTRIES IN ARRAYS
  31. C*          DOWN  - IS DOWN THE DEFAULT DIRECTION?
  32. C*
  33. C*     OUTPUT ARGUMENTS :
  34. C*          NONE
  35. C*
  36. C*     INTERNAL WORK AREAS :
  37. C*          NONE
  38. C*
  39. C*     COMMON BLOCKS :
  40. C*          NONE
  41. C*
  42. C*     FILE REFERENCES :
  43. C*          NONE
  44. C*
  45. C*     DATA BASE ACCESS :
  46. C*          NONE
  47. C*
  48. C*     SUBPROGRAM REFERENCES :
  49. C*          LIB$PUT_SCREEN,  LIB$SET_CURSOR,  LIB$SET_SCROLL
  50. C*
  51. C*     ERROR PROCESSING :
  52. C*          NONE
  53. C*
  54. C*     TRANSPORTABILITY LIMITATIONS :
  55. C*          NOT TRANSPORTABLE.
  56. C*
  57. C*     ASSUMPTIONS AND RESTRICTIONS :
  58. C*          NONE
  59. C*
  60. C*     LANGUAGE AND COMPILER :
  61. C*          ANSI FORTRAN 77
  62. C*
  63. C*     VERSION AND DATE :
  64. C*          VERSION I.0      4-FEB-85
  65. C*
  66. C*     CHANGE HISTORY :
  67. C*           4-FEB-85    INITIAL VERSION
  68. C*
  69. C***********************************************************************
  70. C*
  71.       CHARACTER *79 T
  72.       CHARACTER *1 ESC
  73.       LOGICAL DOWN
  74.       DATA ESC/27/
  75. C
  76.       IF ( DOWN ) THEN
  77.          WRITE ( T, 900 ) NUM
  78.       ELSE
  79.          WRITE ( T, 910 ) NUM
  80.       ENDIF
  81. C
  82. C --- PUT MESSAGE ON LINE 1 IN REVERSE VIDEO
  83. C
  84.       IFLAG = 2
  85.       ISTAT = LIB$PUT_SCREEN ( T, 1, 1, IFLAG )
  86. C
  87. C --- RESTORE CURSOR LOCATION AND SET SCROLL REGION
  88. C
  89.       ISTAT = LIB$SET_CURSOR ( IY, IX )
  90.       ISTAT = LIB$SET_SCROLL ( 2, 24 )
  91.       RETURN
  92. 900   FORMAT(
  93.      $'   Entries=',I3,
  94.      $'          Direction=Down         Commands=A,B,D,E,I,R,S,?,^Z ')
  95. 910   FORMAT(
  96.      $'   Entries=',I3,
  97.      $'          Direction=Up           Commands=A,B,D,E,I,R,S,?,^Z ')
  98.       END
  99. C
  100. C---END NSTAT
  101. C
  102.